home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / ANT2.BAS next >
BASIC Source File  |  1990-09-29  |  10KB  |  247 lines
  1. 1 '
  2. 2 ' AnteaterMusic II: Classical
  3. 3 '
  4. 4 ' Hope you like it!
  5. 5 '
  6. 6 ' Programmed by Tina Anameier (alias the Tiny Anteater)
  7. 7 '
  8. 8 ' ...The Philharmonic it ain't, though...
  9. 9 '
  10. 10 KEY OFF:COLOR 7,0:WIDTH 80:SCREEN 0,0,0:CLS
  11. 11 A=1
  12. 20 LOCATE 10,1:PRINT "AnteaterMusic II"
  13. 30 LOCATE 12,11:PRINT "by the anteater"
  14. 40 GOSUB 1800
  15. 45 A=1
  16. 50 CLS
  17. 60 Z$=" AnteaterMusic II "
  18. 70 PRINT STRING$(80,196);
  19. 80 COLOR 8,7:PRINT SPC(31);" AnteaterMusic II ";SPC(31)
  20. 90 COLOR 7,0:PRINT STRING$(80,196)
  21. 99 COLOR 8,7
  22. 100 FOR Z=1 TO 12 STEP 2
  23. 110     LOCATE Z+5,18
  24. 120     PRINT "";A;""
  25. 125     A=A+1
  26. 130 NEXT Z
  27. 140 COLOR 7,0
  28. 145 L=6
  29. 150 FOR S=1 TO 6
  30. 160     READ SONG$(S)
  31. 170     LOCATE L,23:PRINT SONG$(S)
  32. 180     L=L+2
  33. 190 NEXT S
  34. 200 LOCATE 18,1:PRINT STRING$(80,196)
  35. 210 LOCATE 20,1:PRINT "Enter selection";
  36. 220 X$=INKEY$:IF X$="" THEN 220
  37. 230 IF VAL(X$)<1 OR VAL(X$)>6 THEN GOTO 220
  38. 240 X=VAL(X$)
  39. 250 ON X GOSUB 300,800,1400,1700,2000,3000
  40. 260 ERASE SONG$:CLEAR:A=1:GOTO 50
  41. 270 DATA Funeral March (Chopin),Symphony #40 (Mozart)
  42. 280 DATA Sleeping Beauty Waltz (Tschaikowsky),Romeo and Juliet - Theme (Tschaikowsky),Prelude in C Major (Bach),Quit
  43. 289 STOP
  44. 290 '
  45. 291 ' Songs
  46. 292 '
  47. 300 COLOR 7:CLS:COLOR 1
  48. 310 LOCATE 10,1:PRINT " Funeral March - Chopin ";:COLOR 7
  49. 320 PLAY "t90 l16 o1 mn"
  50. 330 PLAY "a4a8.aa2"
  51. 340 PLAY "a4a8.aa2"
  52. 350 PLAY "a4a8.aa4o2c8.o1bb8.aa8.aa2"
  53. 360 PLAY "o2c4c8.cc4mle8.mndd8.cc8.cc2"
  54. 370 PLAY "a8g8f8.ee4c4a8g8f8.ee8.c4"
  55. 380 PLAY "o1a4a8.aa4o2c8.o1bb8.aa8.aa2"
  56. 390 PLAY "o2a8g8f8.ee4c4a8g8f8.ee8.c4"
  57. 400 PLAY "o1a4a8.aa4o2c8.o1bb8.aa8.aa4b4o2 c4"
  58. 420 PLAY "t90 l16 o1 mn"
  59. 430 PLAY "o2e8.fg8.ab8.o3c"
  60. 440 FOR CH=1 TO 16:PLAY "t255o2g64o3c64e64":NEXT CH
  61. 450 FOR CH=1 TO 12:PLAY "o2g64b64o3d64":NEXT CH
  62. 460 PLAY "t90p64 o2f64e4e8.f+g+8.ab8.o3c"
  63. 470 FOR CH=1 TO 16:PLAY "t255o2e64a64o3c64":NEXT CH
  64. 480 FOR CH=1 TO 8:PLAY "t255o2e64g+64b64":NEXT CH
  65. 490 PLAY "t90 l16 p4"
  66. 500 FOR CH=1 TO 12:PLAY "o2t255e64g64":NEXT CH
  67. 510 FOR CH=1 TO 12:PLAY "o2t255d64g64":NEXT CH
  68. 520 FOR CH=1 TO 12:PLAY "o2t255c64g64":NEXT CH
  69. 530 PLAY "t90 l16 p4"
  70. 540 FOR CH=1 TO 12:PLAY "o2t255c64e64":NEXT CH
  71. 550 FOR CH=1 TO 12:PLAY "o2t255o1b64e64":NEXT CH
  72. 560 PLAY "t90 l16 o1 a2"
  73. 580 PLAY "t90 l16 o1 mn"
  74. 590 PLAY "a4a8.aa4o2c8.o1bb8.aa8.aa2"
  75. 600 PLAY "t90 l16 o1 mn"
  76. 610 PLAY "o2c8.de8.fg8.ab8.o3c"
  77. 620 FOR CH=1 TO 16:PLAY "t255o2g64o3c64e64":NEXT CH
  78. 630 FOR CH=1 TO 12:PLAY "o2g64b64o3d64":NEXT CH
  79. 640 PLAY "t90p64 o2f64e4e8.f+g+8.ab8.o3c"
  80. 650 FOR CH=1 TO 16:PLAY "t255o2e64a64o3c64":NEXT CH
  81. 660 FOR CH=1 TO 8:PLAY "t255o2e64g+64b64":NEXT CH
  82. 670 PLAY "t90 l16 p4"
  83. 680 FOR CH=1 TO 12:PLAY "o2t255e64g64":NEXT CH
  84. 690 FOR CH=1 TO 12:PLAY "o2t255d64g64":NEXT CH
  85. 700 FOR CH=1 TO 12:PLAY "o2t255c64g64":NEXT CH
  86. 710 PLAY "t90 l16 p4"
  87. 720 FOR CH=1 TO 12:PLAY "o2t255c64e64":NEXT CH
  88. 730 FOR CH=1 TO 12:PLAY "o2t255o1b64e64":NEXT CH
  89. 740 PLAY "t90 l16 o1 a2"
  90. 760 PLAY "t90 l16 o1 mn"
  91. 770 PLAY "a4a8.aa4o2c8.o1bb8.aa8.aa2"
  92. 780 PLAY "t90 l16 o1 mn"
  93. 790 CLS:RETURN
  94. 798 '
  95. 799 '
  96. 800 COLOR 7:CLS:COLOR 1
  97. 810 LOCATE 10,1:PRINT " Symphony No. 40 - Mozart ";
  98. 820 COLOR 7
  99. 830 PLAY "t200 l8 mn o4"
  100. 840 PLAY "e-dd4e-dd4e-dd4b-4p4b-ag4gfe-4e-dc4c4p4"
  101. 850 PLAY "dcc4dcc4dcc4a4p4agf+4f+e-d4dco3b-4b-4p4"
  102. 860 PLAY "o4b-aa4o5c4o4f+4a4g4d4p4b-aa4o5c4o4f+4a4"
  103. 870 PLAY "g4b-4agfe-"
  104. 880 FOR CH=1 TO 14:PLAY "t255o3b-64o4d64":NEXT CH
  105. 890 FOR CH=1 TO 14:PLAY "t255o3g64o4d-64":NEXT CH
  106. 900 FOR CH=1 TO 3:PLAY "o3t255f+64a64o4d64":NEXT CH
  107. 910 PLAY "t200l8mnp4"
  108. 920 FOR CH=1 TO 6:PLAY "t255o3g64b-64o4d-64":NEXT CH
  109. 930 FOR CH=1 TO 3:PLAY "o3t255f+64a64o4d64":NEXT CH
  110. 940 PLAY "t200l8mnp4"
  111. 950 FOR CH=1 TO 6:PLAY "t255o3g64b-64o4d-64":NEXT CH
  112. 960 FOR CH=1 TO 3:PLAY "o3t255f+64a64o4d64":NEXT CH
  113. 970 PLAY "t200l8mnp4"
  114. 980 FOR CH=1 TO 6:PLAY "t255o3g64b-64o4d-64":NEXT CH
  115. 990 FOR CH=1 TO 3:PLAY "o3t255f+64a64o4d64":NEXT CH
  116. 1000 FOR CH=1 TO 3:PLAY "t255o3g64b-64o4d-64":NEXT CH
  117. 1010 FOR CH=1 TO 3:PLAY "o3t255f+64a64o4d64":NEXT CH
  118. 1020 FOR CH=1 TO 3:PLAY "t255o3g64b-64o4d-64":NEXT CH
  119. 1030 FOR CH=1 TO 3:PLAY "o3t255f+64a64o4d64":NEXT CH
  120. 1040 PLAY "t200l8mnp4p4o4"
  121. 1050 PLAY "e-dd4e-dd4e-dd4b-4p4b-ag4gfe-4e-dc4c4p4"
  122. 1060 PLAY "fe-e-4fe-e-4fe-e-4o5c4p4co4b-a4agf4fe-d2p4"
  123. 1070 PLAY "gff4gff4 o3 gff4gff4"
  124. 1080 PLAY "o4 gff4gff4 o3 gff4gff4"
  125. 1090 PLAY "o4e-dd4e-de-4dcd2e-4.co3b-4.o4dc4.o3amlb-2b-mn"
  126. 1100 PLAY "p8 o4 gff4gff4 o3 gff4gff4"
  127. 1110 PLAY "o4 gff4gff4 o3 gff4gff4"
  128. 1120 PLAY "o4e-dd4e-dd4e-dd2e-4.co3b-4.o4dc4.o3ab-4"
  129. 1130 PLAY "o5dco4b-agfe-dco3b-agfe-d4"
  130. 1140 FOR CH=1 TO 3:PLAY "t255o3b-64o4d64f64":NEXT CH
  131. 1150 FOR CH=1 TO 3:PLAY "    o3b-64o4e-64g64":NEXT CH
  132. 1160 FOR CH=1 TO 3:PLAY "    o4c64f64a64":NEXT CH
  133. 1170 PLAY "o4t200l8mn"
  134. 1180 PLAY "b-ao5dco4b-agfe-dco3b-agfe-d4"
  135. 1190 FOR CH=1 TO 4:PLAY "t255o3b-64o4d64f64":NEXT CH
  136. 1200 FOR CH=1 TO 4:PLAY "    o3b-64o4e-64g64":NEXT CH
  137. 1210 FOR CH=1 TO 4:PLAY "    o4c64f64a64":NEXT CH
  138. 1220 FOR CH=1 TO 4:PLAY "    o4d64g64b-64":NEXT CH
  139. 1230 FOR CH=1 TO 4:PLAY "    o3b-64o4e-64g64":NEXT CH
  140. 1240 FOR CH=1 TO 4:PLAY "    o3b-64o4d64f64":NEXT CH
  141. 1250 FOR CH=1 TO 4:PLAY "    o4c64e-64a64":NEXT CH
  142. 1260 PLAY "o4t200l8mn"
  143. 1270 PLAY "b-dfb-afo5co4ab-dfb-afo5co4ab-dfb-afo5co4a"
  144. 1280 PLAY "o4b-o5dco4ab-o5dco4ab-4p4p2"
  145. 1290 PLAY "o5 d4p2"
  146. 1300 FOR CH=1 TO 3:PLAY "t255l64o4dfb-":NEXT CH
  147. 1310 FOR CH=1 TO 12:PLAY "o4dfb-":NEXT CH
  148. 1320 CLS:RETURN
  149. 1398 '
  150. 1399 '
  151. 1400 COLOR 7:CLS:COLOR 1
  152. 1410 LOCATE 11,1:PRINT " The Sleeping Beauty Waltz - Tschaikowsky "
  153. 1420 COLOR 7
  154. 1430 PLAY "t230 l4 o3 ml"
  155. 1440 PLAY "c2.o2b2.o3c2o2abo3co2ab2o3de2c+d2.d2."
  156. 1450 PLAY "g2.f+2.f2dfeda2gf2mnemledc+dabo4c2.o3b2.o4c2o3a"
  157. 1460 PLAY "bo4co3ab2o4mndmld2c+d2.d2.e2f2f+2a2g2b2o5c2o4b2a2g"
  158. 1470 PLAY "l8f+gbagededo3bgp8o4g2a2b4o5cp8o4d+efegp8c+dedep8"
  159. 1480 PLAY "o3bo4cdcedco3bo4co3agp8o4f+gagbagf+gd+ep8g2a2bo5cp8"
  160. 1490 PLAY "o4d+efegp8c+dedep8o3bo4cdcedco3bagf+p8"
  161. 1500 PLAY "o4ff+gf+bagf+edgfededco3bo4co3bag"
  162. 1520 PLAY "o4l4c2.o3b2.o4c2o3abo4co3ab2o4de2c+d2.d2.g2.f+2."
  163. 1530 PLAY "f2dfeda2gf2mnemledc+do3ab"
  164. 1540 PLAY "t230 l4 o3 ml"
  165. 1550 PLAY "o4c2.o3b2.o4c2o3abo4cc+d2o3ao4e2c+f8p8"
  166. 1570 PLAY "o2l8ao3c+dfag+ao4c+dfl4g+2a2b2o5d2c2e2f2e2d2c4"
  167. 1580 PLAY "p4o3l8d+ef+gbo4ce2"
  168. 1590 FOR CH=1 TO 28
  169. 1600     PLAY "o3e32o4c32"
  170. 1610 NEXT CH
  171. 1620 CLS:RETURN
  172. 1698 '
  173. 1699 '
  174. 1700 COLOR 7:CLS:COLOR 1
  175. 1710 LOCATE 11,1:PRINT " Romeo and Juliet (Theme) - Tschaikowsky "
  176. 1720 COLOR 7
  177. 1730 PLAY "t160l4ml"
  178. 1740 PLAY "p2o4g2go3bo4cdo3ago4c2c2o3abg+2o4e2eo3gab-efa-2a-2g2"
  179. 1750 PLAY "dmnd+mld+ea2.efmnb-mlb-mnamla2.efmng+mlg+ab2.f+go4"
  180. 1760 PLAY "mncmlco3mnbmlb2.f+gmnb-mlb-bo4 e2.o3bo4cdd+ea2.e"
  181. 1770 PLAY "fgg+ab2.aa-2mlg2mlg4o3bo4cdo3ago4mlc2c2o3ab"
  182. 1780 PLAY "o3g+2o4e2eo3gab-efa-2a-2g2o4d2c2p4o3go4cec1c1p1"
  183. 1790 CLS:RETURN
  184. 1798 '
  185. 1799 '
  186. 1800 ' Bach: Toccata and Fugue in D Minor (partial)
  187. 1810 PLAY "l16 ml t39"
  188. 1820 PLAY "o4 a64  g64 a8 p32 l64 gfedc+32 d16. p16.p8. "
  189. 1830 PLAY "l16 o3 a64 g64 a8 p64 l32 efc+d16. p16.p8."
  190. 1840 PLAY "l16 o2 a64  g64 a8 p64 l64 gfedc+32 d16. p16.p8."
  191. 1850 PLAY "l8 o1 d o2 c+ e g b- o3 c+ e "
  192. 1860 FOR A=1 TO 4
  193. 1870   PLAY "t150 l64 o2 dga o3 d o2 dga o3 d o2 dga o3 d "
  194. 1880 NEXT A
  195. 1890 FOR A=1 TO 4
  196. 1900  PLAY "l64 o2 dea o3 d o2 dea o3 d o2 dea o3 d"
  197. 1910 NEXT A
  198. 1920 FOR A=1 TO 4
  199. 1930  PLAY "l64 o2 df+a o3 d o2 df+a o3 d o2 df+a o3 d"
  200. 1940 NEXT A
  201. 1950 RETURN
  202. 1951 '
  203. 1952 '
  204. 2000 COLOR 7:CLS:COLOR 1
  205. 2010 LOCATE 11,1:PRINT " Prelude in C Major - Bach "
  206. 2020 COLOR 7
  207. 2030 PLAY "t100 l16 o4 ml"
  208. 2040 PLAY "co3bo4co3go4co3bo4co3eco2bo3co2go3co2bo3co2go4co3bo4c"
  209. 2050 PLAY "o3go4co3bo4co3afefcfefdo4dcdo3ao4dcdo3bgf+gdgf+ge"
  210. 2060 PLAY "o4 edeo3bo4edeco3ag+aeag+ao4co3f+ef+o4co3f+ef+bgfgbgfg"
  211. 2070 PLAY "o3bedebedeaf+ef+af+ef+adcdadcdgedegedegc+o2bo3c+gc+o2bo3c+"
  212. 2080 PLAY "o3f+dc+dfdc+dgf+gdagadbabdo4co3bo4co3d"
  213. 2090 PLAY "o4do3f+gabo4degdgcgo3bo4go3agf+ef+8b8o4cdo3bco3 a32b32a8 mng.mlg4p4"
  214. 2100 PLAY "p2l16p16o4co3bo4co3go4co3bo4co3ao2fefcfeffo3babfbabg+o2edeo1bo2ede"
  215. 2110 PLAY "o3aedeaedeg+dcdg+dcdaedeaedebg+f+g+bg+f+g+"
  216. 2120 PLAY "o4co3ebeo4co3eo4do3dbdadbdo4co3c"
  217. 2130 PLAY "o3acg+cacbo2bo3geo4c8o3ab8a8g+8.mnamlao2ag+aeag+ao3eo4edeo3bo4ede"
  218. 2140 PLAY "o4co2ag+aeag+ao3do4gfgdgfgeco3bo4co3go4co3bo4co3eco2bo3co2go3co2bo3c"
  219. 2150 PLAY "o3co4co3bo4co3go4co3bo4co3afefafefdo4dcdo3ao4dcdo3bgf+gbgf+geo4"
  220. 2160 PLAY "edeo3bo4edeco3ag+ao4co3ag+ago4gfgdgfgegegfafadfdfegegcecedfdf"
  221. 2170 PLAY "o3bgabo4co3edcdgo4co3gdb4f8"
  222. 2180 FOR CH=1 TO 12:PLAY "t255l32mlo3eo4c":NEXT CH
  223. 2190 RETURN
  224. 3000 CLS
  225. 3010 PLAY "t120 l16 ml o2b-.ab-.ab-.fg.e-.....o3e-"
  226. 3020 LOCATE 5,14:PRINT "*This has been an Anteater Inc. production*"
  227. 3030 COLOR 15
  228. 3040 LOCATE 10,10:PRINT "                    AnteaterWare"
  229. 3050 COLOR 7:PRINT
  230. 3060 PRINT "AnteaterMusic is the product of hours of eye-straining, headache-causing work."
  231. 3070 PRINT "Therefore, any contributions of comments, recognition, and/or aspirin will be"
  232. 3080 PRINT "greatly appreciated. Thank you."
  233. 3090 PRINT
  234. 3100 PRINT "                    \       /"
  235. 3110 PRINT "                     \     / "
  236. 3120 PRINT "                      \   /"
  237. 3130 PRINT "                       \ /"
  238. 3140 PRINT "                       OO"
  239. 3150 PRINT "                       c"
  240. 3160 PRINT "                     \___/"
  241. 3170 PRINT "                      ' '"
  242. 3180 FOR A=1 TO 70:LOCATE 21,24:PRINT "C":LOCATE 21,24:PRINT "c":NEXT A
  243. 3190 LOCATE 19,50:PRINT "the anteater (Tina Anameier)"
  244. 3200 LOCATE 23,60:PRINT "p.s. But it's fun"
  245. 3210 LOCATE 25,1:PRINT "Press any key to continue...";
  246. 3220 IF INKEY$="" THEN 3220 ELSE CLS:END
  247.